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MODULE SORSARCHA 


Ic ¢ 
te = 'v04-000' ! File: SORARCHAI.B32 Edit: PDG3019 
BEGIN 


i eeeeeeeeeeeeeeeeeeeeReeeeeReHeeeeeeeeeeedeeeeeeeeeeeeeeeeenereeeeeeeereeene 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 

© 

& 

* 

; * 
it THIS SOFTWARE. IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. * 
* 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W . 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA . 
it CORPORATION. * 
* 

® 

* 

® 

® 
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iw DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


ITH 
TAL 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: VAX-11 SORT/MERGE 
ABSTRACT: 
This module contains archaic and atrophying features of Sort/Merge. 


This module _— _use of the following non-user-visible aspects of 
VAX-11 Sort/Mer 
SORSPAS FILES returns the address of the context area in R1. 
Within this area, it accesses COM_TKS, COM_HACK_STRIP and 
COM_HACK_2ARGS. 
Thus, if these are relocated within the context area, this module 
must be recompiled (and user programs that use it must be relinked). 


The archaic global Literals are defined as weak literals who 
tries to use them without ld Nog SORSINIT_SORT or SORSINIT “MERGE 
(i.e., he's using the new sort) lL get a Link-time error. 
ENVIRONMENT: VAX/VMS user mode 
AUTHOR: Peter D Gilbert, CREATION DATE: 25-Jun-1982 


MODIFIED BY: 


i ee 


103-012 Original 
T05-016 Corrected the order of USER_EQUAL and USER_COMPARE parameters 


8 
voa-000"" HESSEDcIQBL OR:EH:ER  YASATLBLAEECBR AMG RG TERS oe at 


in call to sonsee ein MERGE, POG Fe 85. 1982 
T03-017 Do not pass the SIGNAL opt tion. PDG 29-Dec-1982 

T03- 18 Improve index che is before rererens ing DSC_BIN. PDG 2-Feb-1983 
103-019 Make NOSIGNAL a default option. PDG 11-Apr-1983 
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dD 8 
vou=000" 1erSep-1986 13:40:88 — ESDRTS2:SRESSORANCHAT 682; 1 mek 


; 64 863 1 LIBRARY , SYSSLIBRARY : STARLET’; 

; 6 4 1 REQUIRE ‘"SRCS$:COM'; 

ee 133 | 

: 68 1 8 1 FORWARD ROUTINE 

3 9 1 1 SC_DTYPE ' Convert to DSC datatypes 

; 70 1 8 1 SORSINIT_ SORT i Initialize the sort 

: 7] 139 4 SORSINIT“MERGE, i Initialize the merge 

; f re ' SORSDO_MERGE ; ! "Perform the merge 

; 74 8108 1 LINKAGE 

3 o ae ! AND_RETURN_R1 = CALL(;REGISTER=1); 

3 7 0145 1 EXTERNA path ane 

; 78 3128 1 SORSPASS FILES: ADDRESSING_MODE (GENERAL) AND_RETURN_R1 

3 79 0147 1 SORSBEGIN_SORT: ADDRESSING_MODE (GENERAL), ' Initialize the sort 
; 0148 #1 SORSBEGIN_MERGE : ADDRESSING_MODE (GENERAL), i Initialize the merge 
: 81 0149 +1 SORSEND_SORT: ADDRESS ING_MODE (GENERAL) ; ! Finish the sort/merge 


8 
sera HEREIN ULSD SALSA 


: ‘ ] 9 } ; Define the archaic global Literals : 
; 5 1 § 1 ! These are corsned as weak literals. Thus, if the user tries to use them : 
; § 1 1: without referencing SORSINIT SORT or SOR init TLMERGE (i.e., he’s using the ; 
: i : ¢ : new sort), he'll get an Link=time error. ; 
; 9 1 § 1 GLOBAL LITERAL : 
; 1 1 SORSGK_CHAR_KEY = KEY_K_CHAR: WEAK, : 
; vi 158 1 SORSGK_BIN = KEY_K_BIN: WEAK, ‘ 
3; ¥ Fe 1 SORSGK-ZONE_KEY = KEY _K~ZONE: WEAK, : 
ee. 160 1 SORSGK_PACK KEY = KEY _K_PACK: WEAK, : 
: 94 916) 1 SORSGK_USB_REY = KEY_K_USB: WEAK, : 
Se :, 196 1 SORSGK_DLO_KEY = KEY_K_DLO: WEAK, ‘ 
oe 0165 1 SORSGK_DLS_KEY = KEY_K_DLS: EAK, : 
; 0164 1 SORSGK_DTO_KEY = KEY_K_DTO: WEAK, ; 
; 0165 1 SORSGK_DTS_KEY = KEY_K_OTS: WEAK, ; 
; .99 0166 1 SORSGK_FLT-KEY =  KEY_K“FLT: WEAK, 

; 100 0167 1 SORSGK_FLTB_KEY = KEY -K FLTD: WEAK, 

; 101 0168 1 SORSGK “FLTC KEY = KEY_K_FLTG: WEAK, 

> 102 0169 1 SORSGK_FLTH_KEY = KEY_K~FLTH: WEAK; 
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1e=88b-1984 93:40:38 
! Macros to test for optional parameters. 


' 
' 
' FIRSTPARAMETER_ 
Define the first parameter, for use by PRESENT. and NULL_. 
i PRESENT 
Test for a parameter present. 
! NULL 
Test for a parameter present, and whether it equals zero. 
MACRO 
PRESENT_(X) = 

BUILTIN ree 


L LY 1 (-P IRSTPARAMETER, _) /RUPVAL; 
ACTUALCOURT() GEQU Y 


NULL OO = 
BUILTIN NULLPARAMETER; 
LITERAL Y__ = 14(X=FIRSTPARAMETER__)/%UPVAL; 
NULLPARAMETER(Y__) 


ND 
FIRSTPARAMETER_(X) = 
MACRO FIRSTPARAMETER__ = X ZQUOTE % %; 
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IF .KBF2CKBF_TYPE] EQL 0 
THEN 
BEGIN 
KEY_K_BIN or KEY_X_USB 
LOCAL 
FrSCERER(O) StenctAO BI TMOnD LENGTH,2)), 
IF (.BITNUM GEQ ZAL LLGcATION(OSC BIN)) OR 
(.KBF Kae LENGTH) NEQ 1*.BITNUM) 


RETURN SOR$_BAD_KEY; 


IF .KBFICKBF vee ret key K_BIN 
THEN KBr gEKBr 7bSC pe Bir 
» KBF 2CKBF -TYPE .DSC_-USBC.BITNUM); 


! Adjust the Length for NR and NL datatypes; 
For floating datatypes, compute the Length based on the datatype. 


ONEOF_(.KBF2CKBF_TYPE], BMSK 
ve bScéK K_DTYPE_AR,DSCSK SOT YPE _NL)) 
KBF 2CKBF_LENGTH] = .KBF2CKBF_LENGTH] + 1 


ONEOF_(.KBF2C(KBF_TYPE], BMSK 
en DSC$K_DTYPE_F, DSC$k SOT YPE _D, DSC$K_DTYPE_G, DSCSK_DTYPE_H)) 


BITN 
FeSGERER CY HReE | XBPVAL-1), 
psc KBF 1CKBF_TYPE]], BITNUM); 
Ker2 KBF_ mite -BITNOM; 
END; 
RETURN SS$_NORMAL; 
END; 
.TITLE SORSARCHAIC 
TIDENT \V04-000\ 
-PSECT SORSRO_CODE,NOWRT, SHR, 
00 00000 psc -DTYPES: | , 
13. 10 11 00 15 14 00 OE€ 00001 BYTE 1 
0000E .BLKB 5 


4, 20, 21, 0, 17, 16, 19 
a rT 


PIC,2 
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18, 


SSeS 


10, 11 


Bre erm HLA 


SORSARCHAIC 
v4 


FFFFFFFF QO010116 FFFFFFFF FFFFFFFF 00010116 00000000 14 «LON 

00000101 $0000101 00000011 FFFFFFFF FFFFFFFF FFFFFFFF 4 aad 
we 1 & 

1A 09 08 O07 06 re DSC_BIN: .BYTE 


-BLKB 
DSC_USB: .BYTE 


1beseo-1966 09:21:58 
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J 
65814, <1, <1 5814, -1, <1, <1, <1, = 
a, 257, 257, 65539 


; 7, 8, 9, 26 


19 05 04 03 02 0005 he i. 
SORSGK_CHAR_KEY== 1 
SORSGK-BIN_REY é 
SOR$GK_ZONE_KEY== 
SORSGK-PACK-KEY== 4 
SORSGK-USB_REY== 5 
SORSGK-DLO-KEY== : 
SORSGK-DLS_KEY== 
SORSGK-DTO-KEY== 8 
SORSGK-DTS-KEY== 9 
SORSGK-FLT-KEY== 10 
SORSGK-FLTB_KEY== 11 
SORSGK-FLTG_KEY== 1g 
SORSGK-FLTH-KEY== 1 
<EXTRN SORSPASS FILES, SORSBEGIN_SORT 
“EXTRN SORSBEGIN MERGE 
-EXTRN SORSEND_SORT 
007C 00000 DSC_DTYPE: 
WOR Save R2,R3,R4,R5,R6 
B6 OAF 9 90002 MOVAB DSC_LENGTH, 
04 BC BO 00006 MOVW aKkEY_BUFI, aKEY BUFZ 
08 BC BI 90008 CPU aKEY_BUF2, #255 
04 0085 i aot} MOVZUL @kEY_BUF1, I 
04 BC44 7 a00tA 1$: MOVAG akeEY Bur iCid, KBF 1 
08 BC44 7 000 3 MOVAQ aKkEY BUF2CIJ, KBF2 
02 ¢O 000 ADDL2 #2, RB 
02 A2 BO O0002A MOVW (KBF1), 2(KBF2) 
02 ey Fh b008s mw eect 
$¢ 3¢ 000 : MOVZWL (KBF1), R3 
B1 00038 CMPW ORS, #1 
11 (13 99 B BEQL 
06 Ag Bt 003p CMPW (KBF1), #31 
39 1A 00041 BGTRU 3$ 
06 Ag 3¢ 0043 MOVZWL 6(KBF1) RO 
6643 DF 004 PUSHAL DSC _LENGTH R3 
50 £1 OO04A BBC RO, a(SP)+, 3$ 
06 Ag B O05 2s: MOVW 6(KBF1), 6(KBF2) 
04 =A 8 0 TSTW © &(KBF1) 
4 6 BEQL 3$ 
1 A SUBW3 #1, 4(KBF1), 4(KBF2) 
FO A6 ; 98 MOVZBW DSC_DTYPESCR3], (KBF2) 
1 6 BNEQ 6$ 
9 EA FFS #0, #16, g(KBFI), BITNUM 
D1 00068 CMPL = BITNUM, # 


Page 
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SORSARCHAIC 
s oH 8 Bae 
50 001¢8034 BF ¢ 38: 
- 87 $3 boos? 
61 38 meg 98 00089 
50 0000000 $F om “e rs 95 a3: 
oH He 
50 00300018 8F 61 78 Bx 7s 
6648 OF OOAE 
50 9 F 1 EA 0008 
06 Al 0 80 00086 
cr Le 
FFSB $1 Oooer 9S 
50 01 0 o90ce 108 
04 000¢ 


; Routine Size: 198 bytes, Routine Base: SORSRO_CODE + 0055 


Kk 8 
a=3ep=1986 19:40:38 ESOnTd2°Sme SsoRANCHAT 892; 1 


BT TNUN #1, RS 

#0, #16, 6(KBFI), RS 
#1867828, RO 

R3, #2 

B8¢_BINCBITNURD, (KBF 2) 


DSC _USBCBITNUMJ, (KBF2) 
(KBF2), #40960, RO 


(KBF 2) 
(KBF2), #3145752, RO 


DSC_LENGTHCR3] 
1, #31, a(SP)+, BITNUM 
6(KBF 2) 


Be Se Se Se Se Se Se Se Se Ge Ge Be Ge Ge Se Se Se Se Ge Se Ge Fe Se Ge Se 


8 
b-Sep-1984 00:21:59 YAN=TL BLis432 ¥4.0-742, 


+t 


he >: a 


3) GLOBAL ROUTINE SORSINIT_SORT 
98 
94 

5 


KEY_BUFFER: REF VECTORC1,WORD], 
LRL? REF VECTOR(E1,WORDJ, 
FILE_ALLOC: REF VECTORL1,LONGI, 
WORK-FILES: REF VECTORL1,BYTEJ, 
SORT TYPE: REF VECTORC1,BYTEJ, 
TOT_REY_ SIZE REF VECTORC1,BYTEJ, 
USER_COMPARE, 
OPTIONS: REF BLOCKC1), 

TRA 

= 


++ 
' FUNCTIONAL DESCRIPTION: 
This routine sets the COM_HACK_TKB bit, converts keys to DSC format, 


ERAL 
USED_OPTIONS = 

MASK (OPT_EBCDIC, OPT_STABLE), 
DEF_OPTIONS = 

MASK_(OPT_NOSIGNAL) ; 


H 5 } 

; $j 

> 99 8 1 

i 59 20 4 

; 39 61 1 

; 298 $6 1 

; 299 635 1 

; 300 64 1 

; 01 65 : 

; 08 ar 

; 304 o8 1! 

; 305 69 1! 

BBR 

; 308 0376 and calls SORSBEGIN_SORT fo initialize the sort. 

; 10 0374 | FORMAL PARAMETERS: 

: 4 0376 1! KEY_BUFFER. raw Key buffer address 

: 31 0377 1! LRL.rwu.r Longest record length 

3; «43146 0378 1! FILE_ALLOC.rlu.r Input file allocation 

; $12 0379 1! WORK_FILES.rbu.r Number of work files 

; 316 0380 1! SORT_TYPE.rbu.r Type of sort (record/tag/index/address) 
; a 0381 1! TOT_REY SIZE.rbu.r Total key size 

; 318 bae8 iz USER_COMPARE.rzem.r User-written comparison routine 
; 320 tet : OPTIONS. rlu.r Option bits 

3 $3 tH : ALL parameters are optional. 

; 355 0387 1! IMPLICIT INPUTS: 

: se 0388 1! 

; 396 0390. | | a 

; 7 0391 i IMPLICIT OUTPUTS: 

ieee = 

; 331 0395 i ROUTINE VALUE: 

: 33 Be Status code. 

; : 0399 | SIDE EFFECTS: 

: 7 big } | The working set is extended and the virtual memory is allocated. 
: 339 Oe 1 in. 

$ 0 rh BEGIN 

; a] 405 F IRSTPARAMETER_(KEY_BUFFER); ! Required by PRESENT_ and NULL_ macros 
: 34 209 LIT 

; rts 

3 40 

; 4 9 
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LOCAL 
KEYS KEY_ BLOCK, ' DSC format keys 
CTX: REF CTX_BLOCK ! Addr of context area 
KEY PARAM: REF REY_BLOCK, 


MACRO 
PARAM_(A) = (IF PRESENT_(A) THEN .A ELSE 0) 2%; 


! If the user wants concurrent sorts, he must use the new interface to 
get them. 


IF NOT NULL_(EXTRA) THEN RETURN SOR$_UNDOPTION; 


Get the context area 


We know that SORSPASS FILES will allocate the context area, 

and that SORSPASS FILES may be called with no parameters. 

Binet hye 96 a hack, SORSPASS_FILES returns the address of the context 
area in Ri. 


STATUS = SORSPASS FILES(;CTX); 
IF NOT .STATUS THEN RETURN .STATUS; 


} Check the options specified 
iF NOT NULL_ (OPTIONS) 
IF (.OPTIONSCO,L_3 AND NOT USED_OPTIONS) NEQ 0 


RETURN SOR$_UNDOPTION; ! Invalid options specified 


Get the total key size, for what it's worth. 

Note that this ney conflict with information from the key buffer, 
or the specification file. 

TKS stuff is damned stupid. 


! 
i 
i 
' 
iF NOT NULL (TOT_KEY_SIZE) THEN CTXCCOM_TKS) = .TOT_KEY_SIZECO); 
CTXCCOM_HACR_STRIP) = TRUE; Set this by default 


Set the bit indicating only 2 parameters are passed to callback routines 
CTXCCOM_HACK_2ARGS] = TRUE; 

Convert keys to the new format 

Note: "If you pass both key buffer address and comparison address, 

SORT ignores the comparison routine address’’. 
EY_PARAM = 0; 


' 
K 
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IF NOT NULL SS BUFFER) THEN 
iF caine -OUFFER OJ NEQ 0 
BEGIN ! convert to DSC format 
STATUS = DSC_DTYPE(KEY_BUFFERCOJ, KEYSCBASE_J); 
IF NOT .STATOS THEN RETURN .STATUS; 
KEY _PARAR = KEYSCBASE_); 


Call SORSBEGIN_SORT to do the rest oj the processing 
RETURN v PARARLEASE goat 
KEY 


PARAM (LRL) 
LEC OR (IF NULL (OPTIONS) THEN 0 ELSE .OPTIONSCO,L_J)), 


L 
(IF KEY " PARKMEBAS NEQ 0 THEN 0 
ELSE IF NULL (USER COMPARE THEN RETURN SORS_MISS_PARAM 
LSE .USER_COMPARED, 


PARAM_(SORT_TYPE) 
i PARAM” (WORK-FILESS); 


0004 00000 ~ ENTRY soneieit SORT, Save R2 
SE F800 «CE OSE 0000¢ MOVAG =2048(SPY, SP 
09 6C 91 0000 CMPB 
05 1F OOOOA BLSSU 
24 AC D5 0000C TSTL  36(AP) 
1E 12 0000F BNEQ 
000000006 00 00 FB 00011 1$: CALLS #0, SORSPASS_FILES 
4B 50 €9 00018 BLBC STATUS, 5$ 
08 6C 91 0001B CMPB sé AP), «#8 
17 1f 0001 BLSSU 
20 Ac 05 0002 TSTL 2(AP) 
12 13 000 BEQL 
FFFFFFFC 8F 20 BC D B86 5 BITL @OPTIONS, #-4 
08 13 00020 BEQL 
50 001¢814C BF v6 00 F 2$: MOVL #1868108, RO 
4 $ RET 
06 6c 91 003 3$: CMPB Ss AP), #6 
OA 1F O003A BLSSU  4$ 
18 AC rf Oar TSTL 24( AP) 
05 13 0003F BEQL $ 
78 «OA 1 C 90 00041 MOVB. @TOT_KEY_SIZE, 120(CTX) 
sc OAT 6 F 88 0046 4$: BISB2 #96, ~92(CTX) 
2 pe 4B CLRL KEY_ PARAM 
6C 0040 TSTB py 
i¢ 1 O04F BEQL 6$ 
04 AC D 1 TSTL  4(AP) 
7? 1 90 4 BEQL 
04 BC B 056 TSTW @KEY_BUFFER 
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iSoseo-t9ge 09:21:58 


GLOBAL ROUTINE SORSINIT_MERGE 


MERGE ORDER: REF VECTORC, BYTE), 
Key _BOFFER REF VECTORL,WORDJ, 
LRL? REF VECTORE WORD), 
OPTIONS: REF BLOCKL14, 
USER_COMPARE, 

USER~ INPUT, 

EXTR 


+4 
FUNCTIONAL DESCRIPTION: 


This routine converts keys to DSC f 
and calls SORSBEGIN. MERGE to initial 


FORMAL PARAMETERS: 


4 
e the merge. 


AX-11 Bliss-32 V4.0-7 
SORT32.SRCJSORARCHAI. 3 2;1 


MERGE ORDER. rab 
KEY_BUFFER.raw 


0 
USER_COMPARE , 
USER_ INPUT 


Order of the merge 
Key buffer address 
sengest ce recere Length 
p 
thee iF comparison routine 
User-written input routine 


ALL parameters are optional. 


NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status code. 
SIDE EFFECTS: 


The work files are defined (not necessarily created), 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
is extended and 
i 


” BEG 
FIR 
L 


TERA 
USED OPTIONS = 


IN 
STPARAMETER_ (MERGE _ORDER) ; 


the working set 
the virtual memory is extended. 


! Required by PRESENT_ and NULL_ macros 


MASK (OPT_EBCDIC, OPT_SEQ_CHECK), 


DEF_OPTIONS = 


“MASK_ (OPT -NOSIGNAL); 


LOCAL 


KEYS: KEY_BLOCK, 


! DSC format keys 


Sol 


9 
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D 
yoes000 ES 1ergee= 138s P9:40i88 Haba dosha ssbeahtagy 6S. 1 d 
! 


5 G87 550 CTX: REF CTX_BLOCK ! addr of context area | 
: 488 1 KEY PARAM: REF REY_BLOCK, 
: 489 2 § STATUS; | 
: 490 
; 491 554 MACRO 
; 43 555 PARAM_(A) = (IF PRESENT_(A) THEN .A ELSE 0) &; | 
> 494 $8 : 
: 495 0558 ! If the user wants concurrent sorts, he must use the new interface to 

: 439 0866 a 

; 498 B29) IF NOT NULL_(EXTRA) THEN RETURN SORS$_UNDOPTION; 

; 499 286 

: 80h ae ' Check the opti ified | 
: ' Chec e options specifie 

; Ww 0565 ! 

3; 50 0566 IF NOT NULL_(OPTIONS) 
; 504 0567 

3. 305 0568 IF (.OPTIONSCO,L_] AND NOT USED_OPTIONS) NEQ 0 

; 506 0569 TH 

3; 307 0570 RETURN SOR$_UNDOPTION; ! Invalid options specified 

; 508 0571 § 

; 3OP b326 

; ai? 057 ' Get the context area 

s 31 0574 ! 

3 21§ 0575 ! We know that SORSPASS FILES will allocate the context area, 

3; $1 0576 2 ! and that SORSPASS FILES may be called with no parameters. 

> «514 0577 § ! Finally, as a hack, SORSPASS_FILES returns the address of the context 

s 513 0578 ' area in Ri. 

: 516 0579 2 ! 

s SIT 0580 § STATUS = SORSPASS_FILES(;CTX); 

; 518 0981 IF NOT .STATUS THEN RETURN .STATUS; 

; 519 05 ; § 

; 520 058 

s Sey 0584 2 ! 

; 256 0585 2 ! Do not set the COM_HACK_STRIP bit for merges 

t 3 p286 ' 

> 524 587 

: a2 0588 ; ; 

; 258 F434 Set the bit indicating only 2 parameters are passed to callback routines 

; 358 0591 CTXCCOM_HACK_2ARGS) = TRUE; 

s Sey B238 

3 : 0 B28 

; 1 594 ! Convert keys to the new format 

3 236 0595 ! Note: “If you pess both key buffer address and comparison address, 

3 e87 bees SORT ignores the comparison routine address". 

3 236 598 KEY_PARAM = 0; 

; 298 599 IF ROT NULL_(KEY_BUFFER) THEN 

3 S37 600 IF .KEY_BUFFERCOJ NEQ 0 

; 538 308) THEN 

3 44 6 ¢ BEGIN ! convert to_DSC format 

3 40 6 STATUS = DSC_DTYPE(KEY_BUFFERCOJ, KEYSCBASE_)); 

: ae 604 IF NOT .STATOS THEN RETURN .STATUS; 
3 246 +4 2 KEY_PARAM = KEYS(BASE_]; 


9 | 
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: 544 607 
3 45 §6 
: 2 63 Call SORSBEGIN_MERGE to do the rest of the processing | 
; 548 39 RETURN v PAMAREaASES) MERGE 
OBE sai 
3 $31 614 er ei OR (IF NULL_(OPTIONS) THEN 0 ELSE .OPTIONSCO,L_J)), 
; 338 0616 (IF REY P E_j NEQ 0 THEN O 
; 554 061 ELSE I a (USER COMPARE) THEN RETURN SORS_MISS_PARAM 
3 22? ot LSE .USER_COMPARES, 
; 557 620 aac 
; 558 621 ); 
s $59 0622 1 END; 
0004 0000 .ENTRY SORSINIT_MERGE, Save R2 3 0493 
5E F800 CE 9€ 0000 MOVAB =2048(SP), SP : 
07 6C 91 0000 CMPB (AP), #7 + 0561 
05 1F OOOOA BLSSU-1$ : 
1c ac 05 0000C TSTL 28(AP) : 
14 12 0000F BNEQ 2$ : 
04 6C 91 00011 18 CMPB (AP), #4 : 0566 
17 1F 00014 BLSSU _3$ ; 
10 AC 05 00016 TSTL 16(AP) : 
12 13 00019 BEQL 6: 33$ : 
FFFFFFED 8F 10 BC D3 90018 BITL § @OPTIONS, #-19 : 0568 
08 13 000 BEQL $ ; 
50 001C814C = BF p0 009 2$ MOVL #1868108, RO : 0570 
000900006 00 00 FB 0002D 3$ CALLS #0, SORSPASS_FILES : 0580 
20 50 £9 00034 BLBC. STATUS > 0581 
5c AI 20 88 00037 BISB2 #32, opeccTX) > 0591 
2 04 00038 CLRL : 0598 
02 6C 91 00030 CMPB Cay, a : 0599 
1¢ 1 00040 BLSSU‘5$ : 
08 AC 03 O04¢ TSTL (AP) ; 
17 13 0004 BEQL $ : 
08 BC BS 9047 TSTW § @KEY_BUFFER : 0600 
1 1 O4A BEQL 5$ 3 
04 AE 9F 0004C PUSHAB KEYS : 0603 
08 AC ODD O04F PUSHL KEY BUFFER : 
FEOO «CF 08 FB 03¢ CALLS #2, DSC_DTYPE : 
6C E 0057 4$: BLBC STATUS, ~19$ : 0604 
52 04 AE : >A MOVAB KEYS, KEY_PARAM : 0605 
06 6¢ 9 3E 5$: CMPB (AP), #6 : 0620 
1F 0006 BLSSU6$ ; 
18 AC pp 0063 PUSHL USER_INPUT : 
9 1 0 66 BRB § ; 
E 04 0006 $$: CLRL = (SP) ; 
ce D4 0006A 78: CLRL =_ = (SP) > 0612 
52 D5 0006C TSTL KEY_PARAM : 0616 


F 9 
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y002008 18-808- 1382 00:4) 88 SORT32.SRCJSORARCHAI .B32;1 allt) 
94 13 $ BEQL : 
; 4 CLRL 5 {$P) : 
1 1 0007 BRB 11 ; 
05 eC 1 00074 8 CMPB ss), #5 + 0617 
F 00077 BLSSU 9 ; 
14 ry 9 79 TSTL ¢ (AP) : 
0 7C BNE $ ; 
50 001C80E4 BF 26 43 9$ MOVL #1868004, RO ; 
50 14 AC D0 10$:  MOVL = USER_COMPARE, RO : 0618 
5 p 008A PUSHL RO + 0617 
6¢ 09 C 11$ TSTB.—s_ (AP) + 0615 
1 BEQL 12$ F 
04 AC dd 0009 PUSHL MERGE ORDER : 
02 11 0009 BRB 13$ ; 
7E 04 0009 128 CLRL = = (SP) : 
04 6¢ 91 00097 13$ CMPB sé A), #4 + 0614 
05 iF O009A BLSSU -:14$ ; 
10 AC D5 0009C TSTL 16(AP) : 
04 12 0009F BNEQ 15$ ; 
50 04 000A1 14$ CLRL = RO. ; 
04 11 OO0A3 BRB 16$ ; 
50 10 BC DO 000A5 15$ MOVL. @OPTIONS, RO : 
10 AE 50 08 ¢9 OO0A9 16$ BISL3 #8, RO, 16(SP) ; 
10 AE SF 0 OAE PUSHAB 16(SP) : 
03 6C 91 00081 CMPB (AP), #3 ; 0613 
05 1F 000B4 BLSSU ‘178 ; 
OC AC DD 00086 PUSHL LRL F 
02 11 00089 BRB 18$ ; 
fe 04 000BB 17$ CLRL = = (SP) : 
5 DD 000BD 18$ PUSHL oS aonnee ; 0612 
000000006 00 07 FB O00BF CALLS #7, SORSBEGIN_MERGE ; 
04 000C6 198 ET > 0622 


; Routine Size: 199 bytes, Routine Base: SORSRO_CODE + O1FE 


6 
sonsancnAtc 1$-sep-1984 00:27:59 YAN-1] BL ieg-32 v4.0-742 


4 6) . ? ! GLOBAL ROUTINE SORSDO_MERGE 

3 8 625 1 EXTRA 

: 564 6 § 1 ) «= 

; 565 6 1 +4 

3 08 628 1! 

3 28 629 1 ! FUNCTIONAL DESCRIPTION: 

; 568 630 1! 

; 569 0631 1! ‘Perform the merge’. 

s $70 06 ¢ 1! 

; 71 06 1 ! FORMAL PARAMETERS: 

3 if 8 » 3 

; S7 635 1! NONE 

s 376 06 § 2 

; 75 06 1 ! IMPLICIT INPUTS: 

3; 376 0638 1! 

We 4d 0639 1! NONE 

; 578 0640 1! 

; 579 0641 1 ! IMPLICIT OUTPUTS: 

; 580 pose 1! 

; 581 0645 1! NONE 

3 286 0644 1! 

; 0645 1 ! ROUTINE VALUE: 

; 584 0646 1! 

; 585 0647 1! Status code. 

> 586 0648 1! 

s S87 0649 1 ! SIDE EFFECTS: 

; 588 0650 1! 

; 589 0651 1! NONE 

3; 390 Be36 1! 

; 591 0653 1 !-- 

3 236 0654 § BEGIN : 

3 282 $032 F IRSTPARAMETER_(EXTRA) ; ! Required by PRESENT_ and NULL_ macros 
3 6595 0657 BUILTIN 

; 596 0658 AP, 

; 597 0659 CALLG; 

; 598 0660 

; 599 0661 LOCAL 

; 600 066 CTX: REF CTX_BLOCK, ! Addr of context area 
3; 601 066 STATUS; 

; o08 0664 

; 60 0665 

: 604 8666 ! If the user wants concurrent sorts, he must use the new interface to 
3 et oth get them. 

: goo 669 IF NOT NULL_(EXTRA) THEN RETURN SOR$_UNDOPTION; 

; 608 670 

; 609 671 

: ei? ors Get the context area 

; ois 674 ' We know that SORSPASS FILES will allocate the context area, 
: 61 75 ' and that SORSPASS FILES aay be called with no parameters. 
3; 614 676 ' Finally, as a hack, SORSPASS_FILES returns the address of the context 
3; 6615 67 ' area in Ri. 

; o1¢ 378 ! 

; «661 67 STATUS = SORSPASS_FILES(;CTX); 


4H 9 
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; 618 680 IF NOT .STATUS THEN RETURN .STATUS; 

; 619 681 . — 

; 620 6 § 

; ? 1 i } Check the flow control flags. 

; ° § 5 if NOT -CTXCCOM_FLO_DOMERGE] THEN RETURN SOR$_SORT_ON; 
: 625 eae 

: ? 8 3 Let SORSEND_SORT clean up 

: 628 0690 RETURN CALLG(.AP, SORSEND_SORT); 

; 629 691 END; 


0000 00000 ~ENTRY SORSDO_MERGE, Save nothin 
60°98 boone (AP) ° 
0 1 00 
04 AC D5 00006 TSTL  4(AP) 
1 90009 BEQL '1$ 
50 001¢814¢ Dd 000 MOVL #1868108, RO 
04 0001 RET 
000000006 00 90 FB 00013 1$: CALLS #0, SORSPASS_FILES 0679 
14 9 E9 OOO1A BLBC s! 0680 
08 5c OAT 03 £0 0001D BBS 92(CTX) 0685 
50 001c802C = BF BO 00 3 MOVL tbe? 20, ns ° 
000000006 00 6C FA 0002A 28: CALLG (AP), SORSEND_SORT 0690 
04 00031 3$: RET 0691 


; Routine Size: 50 bytes, Routine Base: SORSRO_CODE + 02C5 


o- 
mon 
o- 
-o 
_ 
on 
Bete Se Se Se Se Be Ge Se Fe Se Se Bee 
oo | 
oo 
an 
Ow 


SS = — . — 
i 


SORSARCHAIC bse ep- 1984 13:10:38  ESoRTS2°SREISORARCHAT 682; 1 tpt vor 


i 8% 0698 0 ELUDON 


: PSECT SUMMARY 

; Name Bytes Attributes 

: SORSRO_CODE 759 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON She hott t 
Ss » 8 « 0 NOVEC, *NOWRT, * NORD ;NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


Library Statistics 


Ce ay et i et = Syabe|s s«sccces Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 23 0 581 00:01.0 

; ~$255$DUA28:CSORT32.SRCIJSORLIB.L32;1 409 141 34 34 00:00.4 

3 COMMAND QUALIFIERS 

: PLISE/CHECK OCP JELD. IME TIAL OPTIAIZE) /MOTRACE/L 151.188 SORARCHAL /OBJoOBIS: SORARCHAL MSRC$: SORARCHAI/UPDATE=(ENHS$: SORARCHAI 
Size: 674 code + 85 data bytes 
Run Time: 0 .] 


Elapsed Time: 01:02. 
Lines/CPU Min: 23 
Teeny Am tae 24701 
1,¥ Used: 150 pages 
a ation Complete 
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